function [x,m]=r2c(x); 
% function [x,m]=r2c(x); 
% Convert from a Row to a Column vector
% m is the dimension of the column vector (i.e. number rows)
[m,n]=size(x); 
if n > m; 
    x=x'; 
    m = n; 
end 